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**F 1LE**1D**BASPOW! 1 
BBBBBBBB AAAAAA SSSSSSSS PPPPPPPP 000000 WW Wh) III] IIIIII 
BBBBBBBB AAAAAA SSSSSSSS_ PPPPPPPP 000000 dai tell HII! IIIIII 
BB BB AA AA SS PP PP 00 00 WW veld I] II 
BB BB AA AA SS PP PP 00 00 WW I] II 
BB BB AA AA SS PP PP 00 00 WwW wh I] I] 
Aa AA SS PP PP 00 00 WwW Wel I] I] 

BBBBBBBB AA ad SSSSSS PPPPPPPP 00 00 WW WW I] II 

BBB AA AA SSSSSS PPPPPPPP 00 00 WW ‘ail I] I] 
BB BB AAAAAAAAAA SS PP 00 00 WW WW WW I] II 
BB BB AAAAAAAAAA SS PP 00 00 WW Ww WW I] II 
BB BB AA AA SS PP 0c 00 WWWW WwWW I] I] cove 
BB BB AA Ah SS PP WWW = WWW I] I] eoee 
BBBBBBBB AA AA SSSSSSSS PP 000000 www lead III] III! cece 
BBBBBBBB AA AA SSSSSSSS PP 000000 ‘alle lel III] HII! eeee 
LL IIIIII SSSSSSSS 
LL 11111 SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] S$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
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pAssPowl I ; BASIC integer ** integer 16-SEP-1984 00:00:09 VAX/VMS Macro v04-00 Page 
able of contents 

(9 8 433 ttf ape 

(5) 4 - BASIC word ** word 

(4) 211 Bae sPou I_NIV 
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| BASSPOWI1 3; BASIC integer ** integer 16-SEP=-1 00:00:09 VAX/VMS Macro v04-00 Pa 1 
1-006 . ° g-8 Pa 198 08: 9? 98 BASRTL.SRCJBASPOW!1.MAR;1 ea) 
-TITLE BASS$POWII SIC _ integer ** intege 
S IDENT /1-006/ : File: baSpouit. MAR EDIT: LB1006 


=MARBABARAAAAASAAAALALALALAAAAA SALA ALAAESA RASS EASA RASA AS ESAS AAAS ASSES EARS RARE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


® 
® 
aa 
GHT * 

® 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copie * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
ee 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 

® 

® 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. 
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++ 
; FACILITY: Basic Support Library 
; ABSTRACT: 


This module contains entry points to wapeers exponentiation 
(** or “) in BASIC-PLUS-2 for WORD ** 


SOOO oCoCoOoOoooooooooooooooooooooooooooo 
SoOOSCCSCSSSCoCSooCooOCoOSoOOCOoCSoOOSoOSOSOSOOSOOSOOSOOOSoOO 
SOOO SCSSOSCSOCOOSOOSOSOSOSOOSSOOOOSOOOOOOSOOSOOSOSoOO 
pe me ee ew lw ee la lalate alo leololo le lela leo lo lo lo leolelelololololelolo lo) 


AUIS WR 0 OO NAUE WIN SO OD NAUE WN 9 OO NAME WN O OONOAUE WAR OUWONOU LS Wh 


PUPVPVSPVSIVIII EE BP BS BB EB BE WA.AIAIAINIAI I AIAIPIPUNIPIPINPINPINPID 2 2 PO OO Ot Os OO 


i444 3; ENVIRONMENT: User Mode, AST Reentrant 
0000 i-- 
9444 3 AUTHOR: R. Will , CREATION DATE: 22-NOV-78 
0000 ; MODIFIED BY: 
0000 : 
308 3 R. Will, VERSION 01 
0 3; 1-01 = Origina i 
0000 3 1-02. - Fix com parents change BRW to JMP. RW 7-Dec-78 
0000 : 1-003 - Add “"" to the PSECT directive, 8s 22-DEC-78 
0000 3 1-004 - Redo See” case enetyeis of ghe BASE 3° 0 case for 
0000 $ compatability with the PDP-11. JBS 24-APR-1979 
0000 3; 1-005 - Force references to shared code to use snaral=nednietiel 
0000 5 mode. RKR 28-SEP- 
0000 3: 1-006 - Check the flags word in the BASIC frame for the he set ing 
0000 3 the integer overflow bit and use that value as the setting 
4 3 (or clearing) of the PSW. Also added entry po 
000 3 BASSSPOWII_NIV to ensure that the IV bit in the "BSL is 
0000 ; cleared before giving control to OTS$POWII. LB 1 tmay-1982 


magne jMinisnger * torowr SERINE PRONE ERO SeE SHE aes MP 
58 ; .SBTTL DECLARATIONS 
60 ; INCLUDE FILES: 
6 . 
6 EXTERNAL DECLARATIONS: 


-DSABL GBL Prevent undeclared 
symbols from = ‘. 
a 


automatically glo 


-EXTRN OTSS$POWII 
-EXTRN BASSK_DIVBY_ZER 
-EXTRN BASSSSTOP 

-EXTRN BASSHANDLER 


OTS$ word ** word exponentation 
Divide by Zero 

Error resorting routine 

BASIC condition handler 


> MACROS: 
: EQUATED SYMBOLS: 


: OWN STORAGE: 


3© O09 09 09 09 09 09 09 09 09 098 SIN SI NINN NOAA OO 
MM OOO*VAUE WR O OONAUE WN OOo 
- 


9000 : PSECT DECLARATIONS: 
00000000 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
44 EXE, RD, NOWRT. LON 6 


K 13 
BASSPOWI1 ; BASIC integer ** integer 16-SEP-1984 00:00:09 VAX/VMS Macro v04-00 Page 
1-006 BAS$POWII oSBASIC were's* word aes yi 98:90:98 BASRTL.SRCIJBASPOWI1 MAR; 1 3) 

$08 94 -SBTTL BASSPOWII = BASIC word ** word 

00 95 ; +4 

4 39 : FUNCTIONAL DESCRIPTION: 

4464 38 3 This routine takes BASE ** EXP, using the following table 

4464 100 3 for unusual cases: 

$009 101 ; BASE > Call OTSS$POWII, normal case. 

0000 196 : BASE = 0, EXP > 0 Return 0. 

0000 103; BASE = 0, EXP = 0 Return 1. 

0000 104 ; BASE = 0, EXP < 0 Error: divide by zero 

44 132 3 BASE < 0, EXP even Call OTS$POWII with -BASE 

444 199 : BASE < 0, EXP odd Call OTS$POWII with -BASE, negate result 
0000 108 ; CALLING SEQUENCE: 

0000 109; 

44 Be : CALL result.ww.v = BASSPOWI! (base.rw.v, exponent.rw.v) 

0000 \N¢ ; INPUT PARAMETERS: 

0000 113; 

00000004 0000 114 base = 4 
00900008 0000 115 exponent = 8 

0000 116; 

0000 117 ; IMPLICIT INPUTS: 

0000 118; 

0000 119; NONE 

0000 120; 

0000 121 ; OUTPUT PARAMETERS: 

0000 1$¢ 3 

0000 123; NONE 

0000 I$ 3 

0000 125 ; IMPLICIT OUTPUTS: 

0000 $6 ; 

000 127; NONE 

0000 128; 

0000 193 3 FUNCTION VALUE: 

0000 130 ; COMPLETION CODES: 

0000 131; eae 

0000 136 3 word result of exponentiation 

0000 133; 

0000 13 3; SIDE EFFECTS: 

0000 135 ; : as 

0000 136; Will signal Divide By Zero if its arguments are bad, 

tit 137 ; and OTS$POWII may also signal. 

00 138 ; 

0000 139 ;-- 

B88 140 

0000" 0000 141 BASSPOWII:: MASK OTS$POWI1 ; Entry point 

000 136 ; Since this routine uses no 

B08 14 3; registers and usually transfers 
00 144 ; control to OTSSPOWII, we copy 
000 145 ; its register save mask and then 
00 196 ; JMP past its save mask and only 
00 14 ; save the registers once 
003149 s+ 

80 150 : On a call to BAS$SPOWII, the flags word contained in the BASIC frame 


L 13 
BASSPOWII1 ; BASIC integer ** integer 16-SEP-1984 00:00:09 VAX/VMS Macro v04-00 Page 4 
1-006 BASSPOW!I <oBASIC were’se word 6-SE =1382 98:90:98 BASRTL.SRCIBASPOWI11 .MAR; 1 . (3) 
68 151 ; defines whether integer overflow should or should not be enabled. 
4 ! ¢ ; The value of the flag should dictate the setting within the PSL. 
52 OC AD 00 000 154 ° MOVL 12(FP),R2 3; Fetch the saved frame pointer 
| 51 Q0000000'GF DE 0006 £155 MOVAL G*BASSHANDLER,R1 3; Fetch addr of BASIC handler 
51 62 Di 0000 136 CMPL gine? Rt 3; Check if this is a BASIC frame 
3 ee Ht 15 BNEQ $ ; Branch if not a BASIC frame 
52 _€6 A2 80 001 158 MOVW sec te) Rg ; Fetch flags word from BASIC frame 
52 F7FF 8F AA 0016 159 BICW #*XF7FF LR ; Clear all but IV bit 
3s 83 018 160 TSTW R2 ; Check if integer overflow is set 
0 13 001D 161 BEQL 8$ ; Branch if clear 
3 11 Baie 16¢ BRB 98 ; Continue as usual 
2 B9 0021 1635 8$ BICPSW #*x20 3; Clear integer overflow in PSW 
04 AC BS 0023 164 9$ TSTw base(AP) 3; Test base relationship to zero 
06 15 0026 £165 BLEQ 1$ 3; If base leq 0, do case eneiyete 
00000002"GF 17 0028 166 JMP G*OTSSPOWI1+2 3; Transfer control to the OTS 
Bose + : 3 routine to do exponentiation 
$05 169 ; Come here if the base is less than or equal to zero. We must filter 
BOSE 109 3 several special cases, as described above. 
13 G03 17 is: BEQL = 4 : Branch if base = 0 
7E O8 AC 32 0030 17 CVTWL exponent(AP), -(SP) : Stack EXP as parameter to OTS$POWI! 
50 04 AC 32 0034 174 CVTWL =base(AP), RO ; Get BASE as a longword 
—E 50 CE 0038 175 MNEGL RO, -(SPS > Stack -BASE as param to OTSS$POWI1 
52 B65 0038 176 TSTW R2 ; Check if IV is set 
09 12 0030 177 NEQ 7$ : Do the regular CALL to OTS$POWII! 
00000070 ° GF 8S °° 44 178 ALS #2,G*BASSS$POWII_NIV ; Clear IV before JMPing to OTSS$POWII! 
00000000'GF 02 FB 0048 £180 7$: CALLS #2, G*OTSSPOWII : Call integer power routines 
03 08 AC €9 OO4F 181 108: BLBC exponent (AP) ,2$ :; Branch if exponent even 
50 50 AE 0053 136 MNEGW RO, RO 3; Exponent odd, negate the result 
04 $028 137 2s: RET 3; and return with it. 
0057 185 ; Come here if the base is equal to zero. The value we return depends 
boa) 136 3 upon the sign of the exponent. 
08 Ac BS 0057 «188 4s: TSTW exponent (AP) ; Test the exponent opoinat zero 
09 19 QOOSA 189 BLSS 6$ ; Branch if exponent [ss 0 
03 «13 Opae 139 a BEQL 5$ ; Branch if exponent is 0 
O005E 136 ; Come here if the base is zero and the exponent is greater than zero. 
OOSE 193 ; BASIC defines this as 0. 
BOE 194 :- 
50 B4 b2F 195 CLRW RO ; RO =0 
04 oped 196 rs RET ; Return to caller 
0061 198 ; Come here if the base is zero and the exponent is zero. BASIC defines 
0061 199; this as 1. 
Bnet 00 ;- 
50 01 BO 0061 201 5s: MOVw = #1, RO > RO=1 
04 se; 8 RET ; Return to caller. 
3¢ 
065 Be ; Come here if the base is zero and the exponent is less than zero. 
B82 b2 ; BASIC defines this as an error. 
7E O00O°8F 9A 0065 09 és: MOVZBL #BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
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egg URIMGL!*GGeEE SEEMS vara” MCRERISIE OR:9E WAMIRE MESES ssc 


| 00000000'GF 01 FB 0068 $08 : CALLS #1, G*BASSSSTOP ; Report error, never return. 


8 
00000002"GF 17 
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-SBTTL BASSSPOWII_NIV 


AX/VMS Macro VO 


r ** integer ro V04-00 
BASRTL.SRCJBASPOWI1.MAR;1 


p++ 

; Functional Description: 
This routine is an internal entry point, called only by BASS$POWI! 
whose sole purpose in this world is to turn off the integer 
overflow bit in the PSI for the case where the base is less than 
zero, and where the flags bit in the BASIC frame indicate to turn 
off integer overflow. 

Calling Sequence: 
CALL BASSSPOWII_NIV (base.rw.v, exponent.rw.v) 

Input Parameters: 
None 

Output Parameters: 
None 

Side Effects: 


OTS$POWII1 may signal 


BASSSPOWII_NIV:: 


-MASK OTSSPOWII 3; Entry point 
BICPSW #* : Clear IV bit in PSL 
JMP G*OTSSPOWII+2 ; Transfer control to the OTS$ 


; routine to do exponentiation 
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- END 
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BASSPOWI 1 
Smabol table 


ib oti ists 9 90:00:08 eae Macro V04-00 Page / 
6-SEP-1984 19:54:25 ([CBASRTL.SRCIJBASPOWII.MAR;1 (4) 


BASSSPOWII_NIV 00000070 RG a 
BASS$STOP eeeekene X 0 
BASSHANDLER eeeeeene x 0 
BASSK_DIVBY_ZER steeeeee x 00 
BASSPOW1 1 00000000 RG 01 
= 00000004 

EXPONENT = 00000008 
OTS$POWI1 teretenn X 00 

$mececam oe eeeeoseenen + 

: Psect synopsis ! 

poeocwem nwa eccn meee} 
PSECT name Allocation PSECT No. Attributes 
a fee. 2 00000000 0.) OO ¢ OO.) NOPIC USR CON ARS iCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
“BASSCODE 0000007A ¢ 122.) 01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

hwo neror ene ee ee moe an ream ewe + 
H Per formance indicators } 

Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.08 00:00:00.60 
Command processing 108 00:00:00.50 00:00:02.66 
ass 69 00:00:00.54 00:00:01.15 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 55 00:00:00.48 00:00:01.28 
Symbol table output 2 00:00:00.02 90:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.06 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 270 00:00:01.65 00:00:05.77 


The working set Limit was 900 pages. 

2846 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 9 local symbols. 
245 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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aa 
! Macro Library statistics ! 
+ 


ere eerste ewe ewe ne mee seme meee $ 


Macros defined 


.$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


Macro Library name 


There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:BASPOW! 1/0BJ=0BJ$:BASPOW!] MSRC$:BASPOW! 1/UPDATE=(ENH$ : BASPOW! I) 
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